home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / crw / crw.tex < prev    next >
Encoding:
Text File  |  1993-12-29  |  1.5 KB  |  52 lines
  1. %C.G. van der Laan, Hunzeweg 57, 9893PB, Garnwerd. Holland. 05941-1525.
  2. %                                                           cgl@risc1.rug.nl
  3. \let\ea=\expandafter \newif\ifpuzzle
  4. \newcount\cnt \puzzletrue \cnt=0
  5. \newdimen\csize\csize=3ex
  6. %
  7. \def\bdata{\bgroup\obeylines\obeyspaces%
  8. \store}
  9. \def\store#1\edata{\egroup\def\data{#1}}
  10. {\obeyspaces\global\let =\relax}
  11. \def\usersize{}
  12. %
  13. {\catcode`\^^M=13 %local scope
  14. \gdef\crw{\boxit{\usersize\setbox0=%
  15.   \hbox to\csize{\vrule\hss\vrule%
  16.   height.8\csize depth.2\csize width%
  17.   \csize\hss\vrule}%
  18. \hrule\ea\fifol\data\lofif^^M}}
  19. \gdef\sol{\boxit{\def\num{}\puzzlefalse%
  20. \usersize\setbox0=\hbox to\csize{\vrule%
  21.   \hss\vrule height.8\csize depth%
  22.   .2\csize width\csize\hss\vrule}%
  23. \hrule\ea\fifol\data\lofif^^M}}
  24. \gdef\fifol#1^^M{\ifx\lofif#1\lofif\fi%
  25. \processl{#1}\fifol}}%end local scope
  26. %
  27. \def\lofif#1\fifol{\fi}
  28. \def\processl#1{\hbox{\fifo#1\ofif}\hrule}
  29. \def\fifo#1{\ifx\ofif#1\ofif\fi%
  30. \process#1\fifo}    \def\ofif#1\fifo{\fi}
  31. %
  32. \def\process#1{\if*#1\copy0\relax\else%
  33. \ifx\relax#1\copy0\relax\else\ifnum`#1=
  34.         \uccode`#1\cap#1\else\low#1\fi%
  35. \fi\fi}
  36. \def\low#1{\hbox to\csize{\vrule
  37. height.8\csize depth.2\csize\relax%
  38. \ifpuzzle\null\else\hss\uppercase{#1}\fi%
  39. \hss\vrule}}
  40. \def\cap#1{\hbox to\csize{\vrule
  41. height.8\csize depth.2\csize\relax%
  42. \num\ifpuzzle\null\else\hss#1\fi%
  43. \hss\vrule}}
  44. %
  45. \def\num{\global\advance\cnt1\relax%
  46. \vbox to.8\csize{\rlap{\kern1pt%
  47. \fiverm\the\cnt\hss}\vfil}}
  48. %
  49. \def\boxit#1{\vbox{\hrule\hbox{\vrule%
  50. \vbox{#1}\vrule}\hrule}}%
  51. %\endinput %end macros %cgl@risc1.rug.nl
  52.